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ABOUT THIS CHAPTER 


This chapter describes the Toolbox Utilities, a set of routines and data types 
in the Toolbox that perform generally useful operations such as fixed-point 
arithmetic, string manipulation, and logical operations on bits. 


A new fixed-point type, Fract, has been defined. Useful in graphics software, 

the Fract type allows accurate representation of small numbers (between —2 and 
2). Like the type Fixed, a Fract number is a 32-bit quantity, but its implicit 
binary point is to the right of bit 30 of the number; that is, a Fract number 
has 2 integer bits and 30 fraction bits. As with the type Fixed, a number is 

negated by taking its two's complement. Thus Fract values range between —2 and 
2—(2-30), inclusive. Figure 1 shows the weight of each binary place of a Fract 


number. 
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Figure 1—-A Fract Number 
Figure 1—A Fract Number 


In the 128K ROM, all fixed-point functions (that is, functions with Fixed or 
Fract arguments or results) handle boundary cases uniformly. Results are rounded 
by adding half a unit in magnitude in the last place of the stored precision and 
then chopping toward zero. Overflows are set to the maximum representable value 
with the correct sign (typically $80000000 for negative results and $7FFFFFFF 
for positive results). Division by zero in any of the four divide routines 
results in $80000000 if the numerator is negative and $7FFFFFFF otherwise; thus 
the special case 0/0 yields $7FFFFFFF. 


Warning: Some applications may depend on spurious values returned by the 
64K ROM: FixRatio and FixMul overflowed unpredictably, FixRatio 
returned $80000001 when a negative number was divided by 0, and 
FixRound malfunctioned with negative arguments. 


Depending on which Toolbox Utilities you're interested in using, you may need to 
be familiar with: 
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e 


e 


resources, as described in the Resource Manager chapter 


the basic concepts and structures behind QuickDraw 
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TOOLBOX UTILITY ROUTINES 


The 128K ROM version of the Toolbox Utilities supports fifteen new fixed-point 
functions. Pascal typing will allow any of the operand combinations suggested 
here without redefinition of the function. 


Arithmetic Operations 

Fixed-point numbers are described in the Macintosh Memory Management: An 
Introduction chapter. Note that fixed-point values can be added and subtracted 
as long integers. 

In addition to the following routines, the HiWord and LoWord functions 
(described under "Other Operations on Long Integers" below) are useful when 
you're working with fixed-point numbers. 

FUNCTION FixRatio (numer,denom: INTEGER) : Fixed; 

FixRatio returns the fixed-point quotient of numer and denom. Numer or denom may 
be any signed integer. The result is truncated. If denom is 0, FixRatio returns 
$7FFFFFFF if numer is positive or $80000001 if numer is negative. 

FUNCTION FixMul (a,b: Fixed) : Fixed; 


FixMul returns the signed fixed-point product of a and b. The result is computed 
MOD 65536, truncated, and signed according to the signs of a and b. 


FUNCTION FixRound (x: Fixed) : INTEGER; 

Given a positive fixed-point number, FixRound rounds it to the nearest integer 
and returns the result. If the value is halfway between two integers (.5), it's 
rounded up. 


Note: To round a negative fixed-point number, negate it, round, 
then negate it again. 


FUNCTION FracMul (x,y: Fract) : Fract; 


FracMul returns x * y. Note that FracMul effects "type * Fract --> type": 


Fract *: Fract --> Fract 
LONGINT * Fract --> LONGINT 
Fract * LONGINT --> LONGINT 
Fixed * Fract --> Fixed 
Fract am Fixed --> Fixed 


FUNCTION FixDiv (x,y: Fixed) : Fixed; 


FixDiv returns x / y. Note that FixDiv effects "type / type --> Fixed" and 
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"type / Fixed --> type": 


Fixed / Fixed --> Fixed 
LONGINT / LONGINT --> Fixed 
Fract / Fract --> Fixed 
LONGINT / Fixed --> LONGINT 
Fract / Fixed --> Fract 


FUNCTION FracDiv (x,y: Fract) : Fract; 


FracDiv returns x / y. Note that FracDiv effects "type / type --> Fract" and 
"type / Fract --> type": 


Fract / Fract --> Fract 
LONGINT / LONGINT --> Fract 
Fixed / Fixed --> Fract 
LONGINT / Fract --> LONGINT 
Fixed / Fract --> Fixed 


FUNCTION FracSqrt (x: Fract) : Fract; 


FracSqrt returns the square root of x, with x interpreted as unsigned in the 
range 0 through 4—(2—-30), inclusive: That is, bit 15 in Figure 1 has weight 2 
rather than —2. The result, too, is unsigned in the range 0 through 2, 
inclusive. 


FUNCTION FracCos (x: Fixed) : Fract; 
FUNCTION FracSin (x: Fixed) : Fract; 


FracCos and FracSin return the cosine and sine of their radian arguments, 
respectively. The hexadecimal value 0.C910 (which is FixATan2(1,1)) is the 
approximation to x/4 used for argument reduction. Thus, FracCos and FracSin are 
nearly periodic, but with period 2*P instead of 2*z, where P=3.1416015625 and 7c, 
of course, is 3.14159265.... 


FUNCTION FixATan2 (x,y: LONGINT) : Fixed; 


FixATan2 returns the arctangent of y / x in radians. Note that FixATan2 effects 
"arctan(type / type) --> Fixed": 


arctan(LONGINT / LONGINT) --> Fixed 
arctan(Fixed / Fixed) --> Fixed 
arctan(Fract / Fract) --> Fixed 


Conversion Functions 


FUNCTION Long2Fix 
FUNCTION Fix2Long 
FUNCTION Fix2Frac 
FUNCTION Frac2Fix 


(x LONGINT) : Fixed; 

(x: Fixed) : LONGINT; 

(x: Fixed) : Fract; 

(x: Fract) : Fixed; 

Long2Fix, Fix2Long, Fix2Frac, and Frac2Fix convert between fixed-point types. 
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FUNCTION Fix2X 
FUNCTION X2Fix 
FUNCTION Frac2xX 
FUNCTION X2Frac 


(x Fixed) : Extended; 

(x: Extended) : Fixed; 

(x: Fract) : Extended; 

(x Extended) : Fract; 

Fix2X, X2Fix, Frac2X, and X2Frac convert between Fixed and Fract and the 
Extended floating-point type. These functions do not set floating-point 
exception flags. 


Examples 


Examples of the use of these fixed-point functions are provided below; all 
numbers are decimal unless otherwise noted. 


Function Result Comment 

FixDiv (X2Fix(1.95), X2Fix(1.30)) $00018000 1.5 = 01.10 bin 

FracDiv (X2Frac(1.95), X2Frac(1.30) ) $60000000 1.5 = 01.10 bin 

FracMul (X2Frac(1.50), X2Frac(1.30)) $7CCCCCCD 1.95 rounded 

FracSqrt (X2Frac(1.96)) $5999999A 1.4 rounded 

FracSin (X2Fix(3.1416015625) ) $00000000 0 

FracCos (X2Fix(3.1416015625) ) $C0000000 -1 

Fix2Long (X2Fix(1.75)) $00000002 2 

Fix2Frac (X2Fix(1.75)) $70000000 1.75 = 01.11 bin 
Frac2Fix (X2Frac(1.75)) $0001C000 1.75 = 01.11 bin 
FixATan2 (X2Fix(1.00), X2Fix(1.00) ) $0000C910 0.C910 hex = X2Fix (2/4) 
FixDiv (X2Fix(-1.95), X2Fix(1.30)) $FFFE8000 -1.5 

FracDiv (X2Frac(-1.95), X2Frac(1.30)) $A0000000 -1.5 

FracMul (X2Frac(-1.50), X2Frac(1.30)) $83333333 -1.95 rounded 

FracSin (X2Fix(-3.1416015625) ) $00000000 0 

FracCos (X2Fix(-3.1416015625) ) $C0000000 -1 

Fix2Long (X2Fix(-1.75)) $FFFFFFFE -2 

Fix2Frac (X2Fix(-1.75)) $90000000 -1.75 

Frac2Fix (X2Frac(-1.75)) $FFFE4000 -1.75 

FixATan2 (X2Fix(-1.00), X2Fix(-1.00)) $FFFDA4D0 -3*X2Fix(2/4)=3*0.C910 hex 


String Manipulation 
FUNCTION NewString (theString: Str255) : StringHandle; 


NewString allocates the specified string as a relocatable object in the heap and 
returns a handle to it. 


Note: NewString returns a handle to a string whose size is based on its 
actual length (not necessarily 255); if you're going to use Pascal 
string functions that could change the length of the string, you may 
want to call SetString or the Memory Manager procedure SetHandleSize 
first to set the string to the maximum size. 


PROCEDURE SetString (h: StringHandle; theString: Str255); 


SetString sets the string whose handle is passed in h to the string specified by 
theString. 
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FUNCTION GetString (stringID: INTEGER) : StringHandle; 


GetString returns a handle to the string having the given resource ID, reading 
it from the resource file if necessary. It calls the Resource Manager function 
GetResource('STR ',stringID). If the resource can't be read, GetString returns 
NIL. 


Note: Like NewString, GetString returns a handle to a string whose size is 
based on its actual length. 


Note: If your application uses a large number of strings, storing them in 
a string list in the resource file will be more efficient. You can 
access strings in a string list with GetIndString, as described below. 


PROCEDURE GetIndString (VAR theString: Str255; strListID: INTEGER; 
index: INTEGER); [Not in ROM] 


GetIndString returns in theString a string in the string list that has the 
resource ID strListID. It reads the string list from the resource file if 
necessary, by calling the Resource Manager function 
GetResource('STR#',strListID). It returns the string specified by the index 
parameter, which can range from 1 to the number of strings in the list. If the 
resource can't be read or the index is out of range, the empty string is 
returned. 


Byte Manipulation 


FUNCTION Munger (h: Handle; offset: LONGINT; ptril: Ptr; lenl: LONGINT; 
ptr2: Ptr; len2: LONGINT) : LONGINT; 


Munger (which rhymes with "plunger") lets you manipulate bytes in the string of 
bytes (the "destination string") to which h is a handle. The operation starts at 
the specified byte offset in the destination string. 


Note: Although the term "string" is used here, Munger does not assume it's 
manipulating a Pascal string; if you pass it a handle to a Pascal 
string, you must take into account the length byte. 


The exact nature of the operation done by Munger depends on the values you pass 
it in two pointer/length parameter pairs. In general, (ptri,lenl) defines a 
target string to be replaced by the second string (ptr2,len2). If these four 
parameters are all positive and nonzero, Munger looks for the target string in 
the destination string, starting from the given offset and ending at the end of 
the string; it replaces the first occurrence it finds with the replacement 
string and returns the offset of the first byte past where the replacement 
occurred. Figure 2 illustrates this; the bytes represent ASCII characters as 
shown. 
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Figure 2-—Munger Function 
Figure 2—Munger Function 


Different operations occur if either pointer is NIL or either length is 0: 


¢ If ptrl is NIL, the substring of length lenl starting at the given 
offset is replaced by the replacement string. If lenl is negative, the 
substring from the given offset to the end of the destination string is 
replaced by the replacement string. In either case, Munger returns the 
offset of the first byte past where the replacement occurred. 

¢ If lenl is 0, (ptr2,len2) is simply inserted at the given offset; no 
text is replaced. Munger returns the offset of the first byte past where 
the insertion occurred. 

e If ptr2 is NIL, Munger returns the offset at which the target string 
was found. The destination string isn't changed. 

¢ If len2 is 0 (and ptr2 is not NIL), the target string is deleted rather 
than replaced (since the replacement string is empty). Munger returns 
the offset at which the deletion occurred. 


If it can't find the target string in the destination string, Munger returns a 
negative value. 


There's one case in which Munger performs a replacement even if it doesn't find 
all of the target string. If the substring from the offset to the end of the 
destination string matches the beginning of the target string, the portion found 
is replaced with the replacement string. 


Warning: Be careful not to specify an offset that's greater than the length 
of the destination string, or unpredictable results may occur. 


Note: The destination string must be in a relocatable block that was 
allocated by the Memory Manager. Munger accesses the string's length 
by calling the Memory Manager routines GetHandleSize and SetHandleSize. 


PROCEDURE PackBits (VAR srcPtr,dstPtr: Ptr; srcBytes: INTEGER); 
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PackBits compresses srcBytes bytes of data starting at srcPtr and stores the 
compressed data at dstPtr. The value of srcBytes should not be greater than 127. 
Bytes are compressed when there are three or more consecutive equal bytes. After 
the data is compressed, srcPtr is incremented by srcBytes and dstPtr is 
incremented by the number of bytes that the data was compressed to. In the worst 
case, the compressed data can be one byte longer than the original data. 


PackBits is usually used to compress QuickDraw bit images; in this case, you 
should call it for one row at a time. (Because of the repeating patterns in 
QuickDraw images, there are more likely to be consecutive equal bytes there than 
in other data.) Use UnpackBits (below) to expand data compressed by PackBits. 


PROCEDURE UnpackBits (VAR srcPtr,dstPtr: Ptr; dstBytes: INTEGER); 


Given in srcPtr a pointer to data that was compressed by PackBits, UnpackBits 
expands the data and stores the result at dstPtr. DstBytes is the length that 
the expanded data will be; it should be the value that was passed to PackBits in 
the srcBytes parameter. After the data is expanded, srcPtr is incremented by the 
number of bytes that were expanded and dstPtr is incremented by dstBytes. 


Bit Manipulation 


Given a pointer and an offset, these routines can manipulate any specific bit. 
The pointer can point to an even or odd byte; the offset can be any positive 
long integer, starting at 0 for the high-order bit of the specified byte (see 
Figure 3). 


thisPtr points BitTet[thisPtr, 7 
here tests this bit 


BitBet(thic Ptr 25) sets this hit 


Figure 3-Bit Numbernng for Utility Routines 
Figure 3—Bit Numbering for Utility Routines 
Note: This bit numbering is the opposite of the MC68000 bit numbering to 
allow for greater generality. For example, you can directly access 


bit 1000 of a bit image given a pointer to the beginning of the bit 
image. 


FUNCTION BitTst (bytePtr: Ptr; bitNum: LONGINT) : BOOLEAN; 
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BitTst tests whether a given bit is set and returns TRUE if so or FALSE if not. 
The bit is specified by bitNum, an offset from the high-order bit of the byte 
pointed to by bytePtr. 

PROCEDURE BitSet (bytePtr: Ptr; bitNum: LONGINT); 


BitSet sets the bit specified by bitNum, an offset from the high-order bit of 
the byte pointed to by bytePtr. 


PROCEDURE BitClr (bytePtr: Ptr; bitNum: LONGINT); 


BitSet clears the bit specified by bitNum, an offset from the high-order bit of 
the byte pointed to by bytePtr. 


Logical Operations 
FUNCTION BitAnd (valuel,value2: LONGINT) : LONGINT; 


BitAnd returns the result of the AND logical operation on the bits comprising 
the given long integers (valuel AND value2). 


FUNCTION BitOr (valuel,value2: LONGINT) : LONGINT; 


BitOr returns the result of the OR logical operation on the bits comprising 
given long integers (valuel OR value2). 


FUNCTION BitXor (valuel,value2: LONGINT) : LONGINT; 


BitXor returns the result of the XOR logical operation on the bits comprising 
the given long integers (valuel XOR value2). 


FUNCTION BitNot (value: LONGINT) : LONGINT; 


BitNot returns the result of the NOT logical operation on the bits comprising 
the given long integer (NOT value). 


FUNCTION BitShift (value: LONGINT; count: INTEGER) : LONGINT; 


BitShift logically shifts the bits of the given long integer. The count 
parameter specifies the direction and extent of the shift, and is taken MOD 32. 
If count is positive, BitShift shifts that many positions to the left; if count 
is negative, it shifts to the right. Zeroes are shifted into empty positions at 
either end. 


Other Operations on Long Integers 
FUNCTION HiWord (x: LONGINT) : INTEGER; 


HiWord returns the high-order word of the given long integer. One use of this 
function is to extract the integer part of a fixed-point number. 
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FUNCTION LoWord (x: LONGINT) : INTEGER; 


LoWord returns the low-order word of the given long integer. One use of this 
function is to extract the fractional part of a fixed-point number. 


Note: If you're dealing with a long integer that contains two separate 
integer values, you can define a variant record instead of using 
HiWord and LoWord. For example, for fixed-point numbers, you could 
define the following type: 


TYPE FixedAndInt = RECORD CASE INTEGER OF 
1: (fixedView: Fixed); 
2: (intView: RECORD 
whole: INTEGER; 
part: INTEGER 
END; 
END; 


If you declare x to be of type FixedAndInt, you can access it as a fixed-point 
value with x.fixedView, or access the integer part with x.intView.whole and the 
fractional part with x.intView.part. 


PROCEDURE LongMul (a,b: LONGINT; VAR dest: Int64Bit); 


LongMul multiplies the given long integers and returns the signed result in 
dest, which has the following data type: 


TYPE Int64Bit = RECORD 
hiLong: LONGINT; 
loLong: LONGINT 
END; 


Graphics Utilities 
PROCEDURE ScreenRes (VAR scrnHRes,scrnVRes: INTEGER); [Not in ROM] 


ScreenRes returns the resolution of the screen of the Macintosh being used. 
ScrnHRes and scrnVRes are the number of pixels per inch horizontally and 
vertically, respectively. 


Assembly-language note: The number of pixels per inch horizontally is stored 
in the global variable ScrHRes, and the number of 
pixels per inch vertically is stored in ScrVRes. 

FUNCTION GetIcon (iconID: INTEGER) : Handle; 

GetIcon returns a handle to the icon having the given resource ID, reading it 

from the resource file if necessary. It calls the Resource Manager function 

GetResource('ICON',iconID). If the resource can't be read, GetIcon returns NIL. 


PROCEDURE PlotIcon (theRect: Rect; theIcon: Handle); 
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PlotIcon draws the icon whose handle is theIcon in the rectangle theRect, which 
is in the local coordinates of the current grafPort. It calls the QuickDraw 
procedure CopyBits and uses the srcCopy transfer mode. 


FUNCTION GetPattern (patID: INTEGER) : PatHandle; 


GetPattern returns a handle to the pattern having the given resource ID, reading 
it from the resource file if necessary. It calls the Resource Manager function 
GetResource('PAT ',patID). If the resource can't be read, GetPattern returns 
NIL. The PatHandle data type is defined in the Toolbox Utilities as follows: 


TYPE PatPtr 
PatHandle 


“Pattern; 
“PatPtr; 


PROCEDURE GetIndPattern (VAR thePattern: Pattern; patListID: INTEGER; 
index: INTEGER); [Not in ROM] 


GetIndPattern returns in thePattern a pattern in the pattern list that has the 
resource ID patListID. It reads the pattern list from the resource file if 
necessary, by calling the Resource Manager function 
GetResource('PAT#',patListID). It returns the pattern specified by the index 
parameter, which can range from 1 to the number of patterns in the pattern List. 


There's a pattern list in the system resource file that contains the standard 
Macintosh patterns used by MacPaint (see Figure 4). Its resource ID is: 


CONST sysPatListID = 0; 
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Figure 4-Stardard Pattems 
Figure 4—-Standard Patterns 

FUNCTION GetCursor (cursorID: INTEGER) : CursHandle; 
GetCursor returns a handle to the cursor having the given resource ID, reading 
it from the resource file if necessary. It calls the Resource Manager function 
GetResource('CURS',cursorID). If the resource can't be read, GetCursor returns 
NIL. 
The CursHandle data type is defined in the Toolbox Utilities as follows: 


TYPE CursPtr 
CursHandle 


= “Cursor; 

= “CursPtr; 

The standard cursors shown in Figure 5 are defined in the system resource file. 
Their resource IDs are: 
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CONST iBeamCursor = 1; {to select text} 
crossCursor = 2; {to draw graphics} 
plusCursor = 3; {to select cells in structured documents} 
watchCursor = 4; {to indicate a long wait} 


i a oP 


iBeamCursor 9 crossCursor plusCursor watchCursor 


Figure 5-Standard Cursors 
Figure 5—Standard Cursors 


Note: You can set the cursor with the QuickDraw procedure SetCursor. The 
arrow cursor is defined in QuickDraw as a global variable named arrow. 


PROCEDURE ShieldCursor (shieldRect: Rect; offsetPt: Point); 


If the cursor and the given rectangle intersect, ShieldCursor hides the cursor. 
If they don't intersect, the cursor remains visible while the mouse isn't 
moving, but is hidden when the mouse moves. 


Like the QuickDraw procedure HideCursor, ShieldCursor decrements the cursor 
level, and should be balanced by a call to ShowCursor. 


The rectangle may be given in global or local coordinates: 


e If they're global coordinates, pass (0,0) in offsetPt. If they're a 
grafPort's local coordinates, pass the top left corner of the grafPort's 
boundary rectangle in offsetPt. (Like the QuickDraw procedure 
LocalToGlobal, ShieldCursor will offset the coordinates of the rectangle 
by the coordinates of this point.) 


FUNCTION GetPicture (picID: INTEGER) : PicHandle; 


GetPicture returns a handle to the picture having the given resource ID, reading 
it from the resource file if necessary. It calls the Resource Manager function 
GetResource('PICT',picID). If the resource can't be read, GetPicture returns 
NIL. The PicHandle data type is defined in QuickDraw. 


Miscellaneous Utilities 

FUNCTION DeltaPoint (ptA,ptB: Point) : LONGINT; 

DeltaPoint subtracts the coordinates of ptB from the coordinates of ptA. The 

high-order word of the result is the difference of the vertical coordinates and 

the low-order word is the difference of the horizontal coordinates. 

Note: The QuickDraw procedure SubPt also subtracts the coordinates of one 
point from another, but returns the result in a VAR parameter of type 
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Point. 
FUNCTION SlopeFromAngle (angle: INTEGER) : Fixed; 


Given an angle, SlopeFromAngle returns the slope dh/dv of the line forming that 
angle with the y-axis (dh/dv is the horizontal change divided by the vertical 
change between any two points on the line). Figure 6 illustrates SlopeFromAngle 
(and AngleFromSlope, described below, which does the reverse). The angle is 
treated MOD 180, and is in degrees measured from 12 o'clock; positive degrees 
are measured clockwise, negative degrees are measured counterclockwise (for 
example, 90 degrees is at 3 o'clock and —90 degrees is at 9 o'clock). Positive y 
is down; positive x is to the right. 


-y 
amutle = 45 
@lopeF rom Angle(45) = $FFFFOOOO 
AngleFromBlope($FFFFOOOO) = 45 
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-H +X 
+4 


Figure 6-—SlopeFromAnzle and AngleFroméSlope 

Figure 6—SlopeFromAngle and AngleFromSlope 
FUNCTION AngleFromSlope (slope: Fixed) : INTEGER; 
Given the slope dh/dv of a line (see SlopeFromAngle above), AngleFromSlope 
returns the angle formed by that line and the y-axis. The angle returned is 
between 1 and 180 (inclusive), in degrees measured clockwise from 12 o'clock. 
AngleFromSlope is meant for use when speed is much more important than 
accuracy—its integer result is guaranteed to be within one degree of the correct 
answer, but not necessarily within half a degree. However, the equation 

AngleFromSlope(SlopeFromAngle(x)) = x 


is true for all x except 0 (although its reverse is not). 


Note: SlopeFromAngle(0) is 0, and AngleFromSlope(0) is 180. 
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FORMATS OF MISCELLANEOUS RESOURCES 


The following table shows the exact format of various resources. For more 
information about the contents of the graphics-related resources, see the 
QuickDraw chapter. 


Resource Resource type Number of bytes Contents 

Icon ‘ICON’ 128 bytes The icon 

Icon list ‘ICN#' n * 128 bytes n icons 

Pattern "PAT ' 8 bytes The pattern 

Pattern list 'PAT#' 2 bytes Number of patterns 
n * 8 bytes n patterns 

Cursor 'CURS' 32 bytes The data 


32 bytes The mask 


4 bytes The hotSpot 
Picture 'PICT' 2 bytes Picture length (m+10) 
8 bytes Picture frame 
m bytes Picture definition data 
String ‘STR ' m bytes The string (1-byte length 
followed by the characters) 
String list 'STR#' 2 bytes Number of strings 


m bytes The strings 


Note: Unlike a pattern list or a string list, an icon list doesn't start 
with the number of items in the List. 
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SUMMARY OF THE TO 


OLBOX UTILITIES 


Constants 

CONST 
{ Resource ID o 
sysPatListID = 


{ Resource IDs 


f standard pattern list } 
0; 


of standard cursors } 


iBeamCursor = 1; {to select text} 
crossCursor = 2; {to draw graphics} 
plusCursor = 3; {to select cells in structured documents} 
watchCursor = 4; {to indicate a long wait} 
Data Types 
TYPE 
Int64Bit = RECORD 
hiLong: LONGINT; 
loLong: LONGINT 
END; 
CursPtr = “Cursor; 
CursHandle = “CursPtr; 
PatPtr = “Pattern; 
PatHandle = *PatPtr; 
Routines 


Arithmetic Operat 


FUNCTION FixRatio 
FUNCTION FixMul 
FUNCTION FixRound 
FUNCTION FracMul 
FUNCTION FixDiv 
FUNCTION FracDiv 
FUNCTION FracSqrt 
FUNCTION FracCos 
FUNCTION FracSin 
FUNCTION FixATan2 


Conversion Functi 


ions 


(numer,denom: INTEGER) 
(a,b: Fixed) Fixed; 
(x: Fixed) INTEGER; 
(x,y :  Fract) Fract; 
(x,y Fixed) Fixed; 
(x,y Fract) Fract; 
(x:  Fract) Fract; 

(x: Fixed) Fract; 

(x: Fixed) Fract; 
(x,y: LONGINT) Fixed; 


ons 
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FUNCTION Long2Fix 
FUNCTION Fix2Long 
FUNCTION Fix2Frac 
FUNCTION Frac2Fix 
FUNCTION Fix2X 
FUNCTION X2Fix 
FUNCTION Frac2X 
FUNCTION X2Frac 


LONGINT) : Fixed; 
Fixed) :  LONGINT; 
Fixed) : Fract; 

Fract) : Fixed; 

Fixed) : Extended; 
Extended) : Fixed; 
Fract) : Extended; 
Extended) : Fract; 


x x KKK KK 


NR RR. ee 


String Manipulation 


FUNCTION NewString 
PROCEDURE SetString 
FUNCTION GetString 
PROCEDURE GetIndString 


theString: Str255) : StringHandle; 

h: StringHandle; theString: Str255); 
stringID: INTEGER) : StringHandle; 

VAR theString: Str255; strListID: INTEGER; 
index: INTEGER); [Not in ROM] 


ee 


Byte Manipulation 


FUNCTION Munger (h: Handle; offset: LONGINT; ptri: Ptr; lenl: LONGINT; 
ptr2: Ptr; len2: LONGINT) : LONGINT; 

PROCEDURE PackBits (VAR srcPtr,dstPtr: Ptr; srcBytes: INTEGER); 

PROCEDURE UnpackBits (VAR srcPtr,dstPtr: Ptr; dstBytes: INTEGER); 


Bit Manipulation 


FUNCTION BitTst (bytePtr: Ptr; bitNum: LONGINT) : BOOLEAN; 
PROCEDURE BitSet (bytePtr: Ptr; bitNum: LONGINT); 
PROCEDURE BitClr (bytePtr: Ptr; bitNum: LONGINT); 


Logical Operations 


FUNCTION BitAnd (valuel,value2: LONGINT) : LONGINT; 

FUNCTION BitOr (valuel,value2: LONGINT) : LONGINT; 

FUNCTION BitXor (valuel,value2: LONGINT) : LONGINT; 

FUNCTION BitNot (value: LONGINT) : LONGINT; 

FUNCTION BitShift (value: LONGINT; count: INTEGER) : LONGINT; 


Other Operations on Long Integers 


FUNCTION HiWord (x:  LONGINT) : INTEGER; 
FUNCTION LoWord (x:  LONGINT) : INTEGER; 
PROCEDURE LongMul (a,b: LONGINT; VAR dest: Int64Bit); 


Graphics Utilities 


PROCEDURE ScreenRes (VAR scrnHRes,scrnVRes: INTEGER); [Not in ROM] 

FUNCTION GetIcon (iconID: INTEGER) : Handle; 

PROCEDURE PlotIcon (theRect: Rect; theIcon: Handle); 

FUNCTION GetPattern (patID: INTEGER) : PatHandle; 

PROCEDURE GetIndPattern (VAR thePattern: Pattern; patListID: INTEGER; 
index: INTEGER); [Not in ROM] 

FUNCTION GetCursor (cursorID: INTEGER) : CursHandle; 

PROCEDURE ShieldCursor (shieldRect: Rect; offsetPt: Point); 
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FUNCTION GetPicture (picID: INTEGER) 
Miscellaneous Utilities 
FUNCTION DeltaPoint (ptA,ptB: Point) 


FUNCTION SlopeFromAngle (angle: INTEGER) 
FUNCTION AngleFromSlope (slope: Fixed) 


PicHandle; 


LONGINT; 


Fixed; 
INTEGER; 


Assembly-Language Information 
Constants 

; Resource ID of standard pattern list 
sysPatListID .EQU 0 


s Resource IDs of standard cursors 


iBeamCursor .EQU 1 ;to select text 

crossCursor . EQU 2 ;to draw graphics 

plusCursor .EQU 3 ;to select cells in structured documents 
watchCursor .EQU 4 ;to indicate a long wait 

Variables 

ScrVRes Pixels per inch vertically (word) 

ScrHRes Pixels per inch horizontally (word) 
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Further Reference: 


Resource Manager 

QuickDraw 

Technical Note #55, Drawing Icons 

Technical Note #86, MacPaint Document Format 
Technical Note #171, _PackBits Data Format 
Technical Note #252, Plotting Small Icons 


END OF DOCUMENT 
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